home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8404.arc / SINGLE.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  384b  |  12 lines
  1. 300 '*** DISPLAY X AS STORED AND IN DECIMAL
  2. 310 ADDR% = VARPTR(X)
  3. 320 FOR I = 0 TO 3
  4. 330 J = PEEK(ADDR% + I)
  5. 340 J1 = INT(J/16) :J2 = J MOD 16
  6. 350 IF J1>= 10 THEN J1$ = CHR$(J1+55) ELSE J1$ = CHR$(J1+48)
  7. 360 IF J2>= 10 THEN J2$ = CHR$(J2+55) ELSE J2$ = CHR$(J2+48)
  8. 370 PRINT J1$; J2$; " ";
  9. 380 NEXT
  10. 390 X# = X
  11. 400 PRINT X#
  12.